home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / ERASING AND INVERTING.bas < prev    next >
BASIC Source File  |  2000-01-01  |  950b  |  14 lines
  1. 5  & 
  2. 10  REM MISCELLANEOUS DEMO PROGRAM
  3. 15  REM SET UP CTRL E, F, N & T
  4. 20 E$ =  CHR$(5):F$ =  CHR$(6):N$ =  CHR$(14):T$ =  CHR$(20)
  5. 25  PRINT T$1: HOME : PRINT "This program illustrates the rest of the control characters that": PRINT "Flex Type recognizes.": PRINT 
  6. 30  PRINT "As will be apparent, all three of these commands are similar to other": PRINT "BASIC commands or Escape sequences.": PRINT : PRINT 
  7. 35  PRINT "CONTROL E  -  SAME AS ESC E AND CALL -868": PRINT 
  8. 40  PRINT "CONTROL F  -  SAME AS ESC F AND CALL -958": PRINT 
  9. 45  PRINT "CONTROL N  -  TOGGLE SCREEN (INVERSE/NORMAL)": PRINT 
  10. 50  VTAB 21: PRINT "Press any key when you are ready to see some examples.";: GET X$: PRINT 
  11. 55  VTAB 21: PRINT E$: PRINT "That was an example of ctrl-E.": GOSUB 1000
  12. 60  VTAB 6: PRINT F$: PRINT "That was an example of ctrl-F.": GOSUB 1000
  13. 65  VTAB 7: PRINT F$N$;: GOSUB 1000: PRINT N$"That was ctrl-N.": END 
  14. 1000  FOR I = 1 TO 1500: NEXT I: RETURN